home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / editfunc.d < prev    next >
Text File  |  1997-10-26  |  4KB  |  131 lines
  1. DEFINITION MODULE EditFuncs;
  2.  
  3. FROM SYSTEM     IMPORT ADDRESS;
  4.  
  5. FROM EditTypes  IMPORT EDITPTR, CAT, textPtr, aLinePtr, CharSet,
  6.                        aBufferPtr, aLineDesc, searchPos, searchDir, searchCount;
  7.  
  8. VAR rotateFaktor : CARDINAL;
  9.     editList     : EDITPTR;
  10.  
  11. (*$? NOT CAT:
  12. PROCEDURE callComp (ed : EDITPTR);
  13. *)
  14.  
  15. TYPE formFunc   = PROCEDURE ( (* text *)  textPtr);
  16.  
  17. PROCEDURE FindEditor ( wdw : INTEGER) : EDITPTR;
  18.  
  19. PROCEDURE GetEditNumber (wdw : INTEGER) : INTEGER;
  20.  
  21. PROCEDURE OutOfMem ();
  22.  
  23. PROCEDURE findNext (text : textPtr; fromPos, l : INTEGER; tSet : CharSet) : INTEGER;
  24.  
  25. PROCEDURE FindNext(ed : EDITPTR; umbruch : BOOLEAN; l : INTEGER): INTEGER;
  26.  
  27. PROCEDURE findLast (text : textPtr; fromPos : INTEGER; tSet : CharSet) : INTEGER;
  28.  
  29. PROCEDURE FindLast(ed : EDITPTR; umbruch : BOOLEAN): INTEGER;
  30.  
  31. PROCEDURE CursorDown (ed : EDITPTR; ctrl : BOOLEAN);
  32.  
  33. PROCEDURE CursorUp (ed : EDITPTR; ctrl : BOOLEAN);
  34.  
  35. PROCEDURE CursorLeft (ed : EDITPTR; kstate : BITSET);
  36.  
  37. PROCEDURE CursorRight(ed : EDITPTR; kstate : BITSET);
  38.  
  39. PROCEDURE AllUp (text : textPtr);
  40.  
  41. PROCEDURE AllLower (text : textPtr);
  42.  
  43. PROCEDURE SwapUpperLower (text : textPtr);
  44.  
  45. PROCEDURE Capitalise (text : textPtr);
  46.  
  47. PROCEDURE RotXX (text : textPtr);
  48.  
  49. PROCEDURE Rot18 (text : textPtr);
  50.  
  51. PROCEDURE Mirror (text : textPtr);
  52.  
  53. PROCEDURE Protect (text : textPtr);
  54.  
  55. PROCEDURE XXDecode (text: textPtr);
  56.  
  57. PROCEDURE TransformBlock (ed : EDITPTR; trans : formFunc; wholeLines: BOOLEAN);
  58.  
  59. PROCEDURE Home (ed : EDITPTR; ende : BOOLEAN); 
  60.  
  61. PROCEDURE SwapLines (ed : EDITPTR; withUp : BOOLEAN);
  62. (* Vertauscht die aktuelle Zeile mit
  63.  * withUp = TRUE der Zeile darber
  64.  * withUp = FALSE der Zeile darunter
  65.  *)
  66.  
  67. PROCEDURE outputText (ed: EDITPTR; fromLine : LONGINT; fromRow : INTEGER;
  68.                       toLine : LONGINT; toRow : INTEGER; fHdl : INTEGER; umbruch : BOOLEAN;
  69.                       usePrintMod : BOOLEAN) : BOOLEAN;
  70.  
  71. TYPE    ErrReason = (memError, readError, noTextError);
  72.  
  73. PROCEDURE ReadBuffer (VAR ed : EDITPTR; VAR buf: ADDRESS; len : LONGCARD; 
  74.                       freeBuffer: BOOLEAN; VAR err: ErrReason) : BOOLEAN;
  75.  
  76. (*
  77. PROCEDURE ReadEditBuffer (VAR ed : EDITPTR; buf : ADDRESS; len : LONGCARD; inLine : BOOLEAN; REF pre : ARRAY OF CHAR) : BOOLEAN;
  78. *)
  79.  
  80. PROCEDURE readText (VAR ed : EDITPTR; fastRead : BOOLEAN;
  81.                     flen : LONGCARD; VAR fHdl : INTEGER;
  82.                     right : INTEGER; VAR readBuf : ADDRESS; 
  83.                     inLine : BOOLEAN; fullText : BOOLEAN) : BOOLEAN;
  84.  
  85. PROCEDURE Goto (ed : EDITPTR; line : LONGINT; row : INTEGER);
  86.  
  87. PROCEDURE showError (ed: EDITPTR);
  88.  
  89. PROCEDURE KillEditor (VAR ed : EDITPTR);
  90.  
  91. PROCEDURE CreateEditor(VAR ed : EDITPTR) : BOOLEAN;
  92.  
  93. (*$? NOT CAT:
  94. PROCEDURE FreeShortkeyList ();
  95.  
  96. PROCEDURE ReadShortkeyFile(REF fname: ARRAY OF CHAR);
  97.  
  98. PROCEDURE InsertShortkey (VAR ed: EDITPTR);
  99. *)
  100.  
  101. PROCEDURE searchAndReplace (ed : EDITPTR; w, r : ARRAY OF CHAR; pos : searchPos; 
  102.                   direction : searchDir; count : searchCount; 
  103.                   num (* wird nur bei count = nmal benutzt *) : INTEGER;
  104.                   ignoreCase : BOOLEAN; onlyWord : BOOLEAN; 
  105.                   replace : BOOLEAN; ask : BOOLEAN; again : BOOLEAN;
  106.                   doBing: BOOLEAN): BOOLEAN;
  107.  
  108.  
  109. PROCEDURE Delete (ed : EDITPTR; ctrl : BOOLEAN; saveLine : BOOLEAN);
  110.  
  111. PROCEDURE Backspace(ed : EDITPTR; ctrl: BOOLEAN);
  112.  
  113. PROCEDURE DupLine (ed : EDITPTR); 
  114.  
  115. PROCEDURE Tab (ed : EDITPTR; onlyIndent: BOOLEAN);
  116.  
  117. PROCEDURE InsertCR (ed : EDITPTR);
  118.  
  119. PROCEDURE Format0 (ed : EDITPTR; forcedJoin : BOOLEAN);
  120.  
  121. PROCEDURE Insert (ed: EDITPTR; ch : CHAR);
  122.  
  123. PROCEDURE cutBlock (ed : EDITPTR; toClip, redraw : BOOLEAN): BOOLEAN;
  124.  
  125. PROCEDURE cutEdit (ed : EDITPTR; fromOuter : BOOLEAN): BOOLEAN;
  126.  
  127. PROCEDURE putLineInEditor (ed: EDITPTR; adr: ADDRESS; len: CARDINAL; 
  128.                            redraw: BOOLEAN): BOOLEAN; 
  129.  
  130. END EditFuncs.
  131.